home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / stripDelim.cpt / The XFCN Library / background_2627.txt < prev    next >
Text File  |  1987-11-27  |  2KB  |  102 lines
  1. -- background: 2627 from stack: in
  2. -- bmap block id: 3160
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openX
  8. end openX
  9.  
  10. on closeX
  11. end closeX
  12.  
  13. on closeCard
  14.   if the hilite of bkgnd button "index" then
  15.     send mouseUp to field "name"
  16.   end if
  17. end closeCard
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 01
  22. -- high flags: 0000
  23. -- rect: left=185 top=29 right=54 bottom=426
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 21
  28. -- text size: 18
  29. -- style flags: 0
  30. -- line height: 24
  31. -- part name: name
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   set lockScreen to true
  35.   get the hilite of bkgnd button "index"
  36.   set the hilite of bkgnd button "index" to not it
  37.   repeat with i = 1 to the number of buttons
  38.     set the visible of button i to not it
  39.   end repeat
  40.   repeat with i = 1 to the number of card fields
  41.     set the visible of card field i to not it
  42.     set the lockText of card field i to it
  43.   end repeat
  44.   if it then -- we are hiding the card features
  45.     set the rect of card field "description" to 9,84,503,338
  46.     set the visible of card field "description" to true
  47.     send closeX to this card
  48.   else
  49.     set the rect of card field "description" to 9,84,503,177
  50.     send openX to this card
  51.   end if
  52. end mouseUp
  53.  
  54.  
  55. -- part 2 (field)
  56. -- low flags: 01
  57. -- high flags: 0000
  58. -- rect: left=433 top=29 right=54 bottom=507
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 65535
  62. -- font id: 21
  63. -- text size: 18
  64. -- style flags: 0
  65. -- line height: 24
  66. -- part name: resid
  67.  
  68.  
  69. -- part 4 (field)
  70. -- low flags: 01
  71. -- high flags: 2002
  72. -- rect: left=9 top=60 right=84 bottom=503
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 21
  77. -- text size: 14
  78. -- style flags: 256
  79. -- line height: 16
  80. -- part name: parameters
  81.  
  82.  
  83. -- part 5 (button)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=9 top=27 right=54 bottom=179
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: index
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   visual effect zoom close to gray
  98.   visual effect dissolve
  99.   go to card 1
  100. end mouseUp
  101.  
  102.